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It hardly seems like tuc months FB V 
pazsed ziünce the last newurletter 一 

must be gettinad cid. I'd like tc 
discuss With you 42 topic that has beer 
Praized informally £rom time to time 
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MEETING. ef and that if: the creation o£ a pocl o 
.PUELIC DOMRIN SOFTWARE for use 3 

The Lcilub members. Public dotüa i T: 

PRESIDEHT'£Z ADDR Ir software is software that The author 
haz given written Permission to thee 

general public to reproduce afd ure 

LETTERS To EDITOR Lis Without compensation. You are no doubt 
aWdanre that See zoftware = not 

clazz,ftied as PUBLIC DOMAIN  zortware 

REUTIELI i$ al infringement. of the Catiadia’ 
Copuridht Laws and subject to Penalty 

SOF TULARE IV unde" law. I€ ICH have ur itter 
software that you believe would be oF 

HARDWARE i Wie to the other club members atid dou 


With to Classify it as PUBLIC  DOMEIH 
sortware. please contact B. Mulder anc 
he'll look after uou. 

Oy another topic. I war sorry that we 
uere unable tco eens eio Gr: 
interest to make s blo purchase CH 
T5 2685 computers 


if Gladstone. 
However, it Wasn't E THIGH T. ; 
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PERZOMABL-Z UVITI FOCUS SCIENTIFIC ordered & batch ta 
accommodate our requirements and it if 
mu understandina that FOCUS szold the 
ti"zt batch atid ordered come mare. 
Seems mand non-membe"s have bought thc 
computer and if you Enow and GF Ther. 

HMEFTIHGZ Tell them about the Club and that we 

EC uould be pleased to welcome them Az 
membenz, 

Thanks adain to all the regular: if: 
LOCATION: All meetings are held at the thei" presentstions st the monthly 
HEC bldd. lee Sussex Dr. Root 1izeb. MEETINGS « 


Check in with Security. 
TIME: Meetings are held st 8:6 p.m. 
on the last Thursday (4 Each month Letters to/from the 


unless otherwise posted, EDI OR 





FORMAT: Each meeting wil take The 
following format; 
liFresident's address and intra o£ 





neu membenz, Thanks to CLEM for zo generousiy 
ejSoftuare nrevies thax. 28 Mite} Providing the Editor with & TALL 
SiHardWiare rev iew (max, 28 min? needed wond proceszing Package. Rz gou 
áiRdministrati"v buzintEz it cat all see. I am usinad it to it's 
required, fiillest. SROELOFS 


EiRdjounnment o£ Fforhial portion cof 
the meeting. 

£&jlh£ormal:Member:i discuss Connon 
Problems tap programs etc... 








Hardware Reviews 


First time handware modifications Cat 
Provide for some harroabii ts and tense 
isses I for one Can Ti attest te 
^at £act i3 
For the first time. I have tackled the 
Job Of Making zom& hardware Changes To 
mu computer systeti. In summary, I have 
added à second operating system and a 
UHF modulator to the hae it pco bOarad 
configuration o£ the 7 Ta £urzten. 
i purchased & ic. board ath a 
TREE-FORTH prom from SOFTMAGIC Cort. 
The pc board had rom to put the 
Original basic Rom Chip from the Ts 
computer. However, udou Would have to 
perfanentiu solder it to the hoard. 
This Wat not the bett ides. 30. 
decided to zoider 2 lou profile rocket, 
t2 the po board and then plug The 
Baiic chip into that. This done, I ret 
Out to test the board, Horror or 
horrors, it would’ Tit wort, 
zzentialiu the problem kat that Tie 
companu had Changed the comp i guration 
o£ the pinz an the bOard and that the 
erem Chip had to ke mounted ifti 
verze to that shown in the diagram. 
This poobiem solved, I had tà hardwire 
Zyitohnh to the external Part of mu 
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keuboanrd zo as to zuitch between basic 
md forte, 

ait but not ieazt uw the proklem cf 
F interference 


Tire widEC 
2 Wat tc 
to put cut 
Could usze& 2 
fear af The 
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I zunc "viden 4 
Monitor. Lack o 
unknoun forced fii 要 
Noth! dim turner, & ed oH ia THe 
and the Gfaphaic artist Unis fine 
NewsLetter. just zoe haPPETE G to have a 
spare Zx-81 with UHF. 30 ue tWabpped 
Share machines. My thanks again, IM. 
The next probiem uas to fitch the tuc 
modu ATOMS » It seemed aly. However. 
One had > leadz and BE had z. Afric 
Were do uou cCannect then, Game's board 
Mat dafferent frown fia THe: aTid £C 
provi ded Yi C. i i Es a uel H 228535 tru IDE 
anguaugz. It worked! 
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in the end I quesz uou could Chalk 
Up to patience and deterfination. 

I'm sure that idi Will run across the 
sale rzituatino and wif Out,  JUZT 
DON'T QUIT. 
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MICRO-FLOPPY TAPE S2y5TEM 


The £inal issue of SYNC included ah 
advertizement for à  micro-rloppu tape 
sustem rom Bad Micro Drive. The Starter s 
package ittluded drive 84, anterrace ai 
hardware, cables, power supplu , ad three 
Bicro-floppa tape: of varding fives. 
(145.06 ü.2.] m 

I decided to purchase kun Micro Driver 
for the following n"eatontz 

233@ times faster than Cae ccette 


2jcheaper in price than CRI Inetruments 


yersion. 


3jalmo:t guaranteed faver “load 
dilack of funds fOr & FE 


Sland finally, i'm a COlpuülsive bRügJgct. 


The following if a bazic £uüfnopriz or mma 
f£indings: _ 
-teceived packaged in destruct Brot 
container Wa tk full sort 
Paddinatexcellent: 

-intztallation Wat as Painless At  addin3 
On & ^aMpac and plugging in the POwe 
SUPE] iy, 

-Qualitu in genersl. excellent 

-Openratind Manual leaves much tc 
desired aif that they dc not 
demonztrate how to do the mang things 
advertize. they merelu allude tco 
POrSibility. However, they do provide 
basic process for access to the Pe Hie 
it: Operation. 
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-th& OPeratina system is in general very 
good and fait, There if adaih 8  fhasor 
fault, ait that the systen automatically 
louerzs  ramtopb to accola date Sige hems 
Vatiable:z. It does not matter the size oF 
the ralpack attached, it Will £ind the tob 
a Tid louer it bu lk. This in itzel£ is not 

à problem until YOu become involves With 
Machine Code programs Such a: a Utility 
Package o^ 2. program fuck af alien, There 
i$ TH Wad once the Progr ali iz loaded  intc 
the computer to reset. altopb to protect 


The Machine Code 


‘Tf you have a 64k ralibaCK you could load 
in gour utilities into the O-lsk area and 
US the hilrdedr ive For sg STi 


development. In this care 
ideai; 
Un an overall rating I can onlu give th 


RHí&d MICRO-DRIVE package 2 "aood" 


If YOu wish to know more please fend = 
letter to the editor. You will get zs 
response. 
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TS 2668 HANG ROUTINES AND TIPS 
-Ppoke ZI65E,8 sets CAPS LOCK function 


MODULC FUNCTION: 

Th& modulo function gives the Fr 
Of x5. It if used in the res 
routine below to limit the v 
seconds and Ninutes to So an 
Variable to 23. 


EXAMPLE: modula (12 
DEF FN miíu,.xizu-iIHNT 


REAL TIME CLOCE: us routine Uu 

FRAME: $15 ben variables located EE 

addrezses 2556v2z-z aera. Hdd^esz 236s 

incremented every 15 milliszecondsz, aadres 

2367S every dade millisecondz, and 

23574 every la4b5?6 milliseconds 
This Provides for a Clock that uill Put 
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fo^ approx. 74.5 hours without resetting. 
The pProsratm below will rese t the timer tc 
G afd print the elapsed time (seconds | if 


the upper left-hand corner o£ the Screen. y 


206 FEM CLOCK NN 
2Q REM PORE z28672,0,FPO0KkE 23673 
GO, FORE 22074,68 A 
Se FEN DEF EN Tiílzil1856«siPEER 22 
572 4 gES5siPEEHR BS57342556sPEEHk z 


S&7433) "1000 
4 FEM LET TIMEZFN Tij 
SQ FEM LET ZSECZINTITIME-INT]T iT 
IME 80) +60) | 
6@ REM LET MINS<INTITIME-6@: -LeE 
T MIHZINT (MIN-INT (MIN -6@) 460: | 
70 REM LET HRSsINT I(TIME-S6OG: : 
LET HESZIHTíÍHRES-IHTiH&ES-;24i)smi! 
SG REM PRINT AT O,0; TIME :."'.H 
T Q.,5í"Q" AND HES:1O);HR&PBS5,"' SUL AT 
Q2; i"O"ARND MINi10) (MIN, O° UAT 
@,22:0°8" AND SEC<18);>5EC 
acd REM IF HRS 523 THEN GÜOTO ze 


ae rerereragr 


Programming Tips-General 


1} MACHINE CODE- if your relative JURE 
Exceeds izz buter. inzent & Jm 
inztrüction at an intermedizte address and 
HUMP to that address first and ther JUmE 
tO the fits] address, 

zi H SIMPLE ERROR Tree - 
liccc input rg 
lois goto L6GG + faddress 31 and 六 村 二 UI 
+ fadaress Z and rho = "ZU + etc, 

af the input is other than 1 oor Ez 
Etl.... the Computer remains at the intiput. 
= fateme t is x 

2? to center your prompts OF headings, 
USE the following subroutine. 

Enter this inztrutti on at oF nes the 
ztart of unur Progr anm: let ubl ir 
Sspace:i" 

leGs print at x.Q; uu 

2018 print at «,15-,Selern r$ rr 

2628 return 


Enter the subnroutine with The Etat 

Oi  Wizh to print (not more than 31 
Characters: contained in the String 
Variable re i.c. let rg = ‘statement’ 7 
See the BIGRYTHMS program for an exaliple 
Of this method, 
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USING IN TO REAL THE KEYBOARD 


The IN command may be used te read 
zimultanecus ME ga Key presses thick 
TNR EY SS Cannot do, The addresses used to 

&ad the keubs land are determined fram the 
51164158 equation: 


Cn 
&n 


RDDRE: KEYS REAL 


65278 Caps shift to uU 
65022 A 
64516 G 
65466 1 
61436 6 to 
rode Y 
49156 H 
3e?66 E 


Th& value that the IN command returns is 
determined bu the equation below. 
IN (add"rezzi- 
Sl-ictol.li-esicol.z!-44icol.S)-8sicOl.di-1 
6+ icel. =: Where The CcOl.l i£ the 
outermost keu in the group. 


= [Ofte interest Lind notes: obtained Frio 
TIMES bu phone: 


iT 


- aPprox 78,000 T5-2068 computers were 
ed bu TIME:. 


- Timex Made a Chip that converted the 
TS-B65E into a Sinclair Spectrum allowing 
it to run ALL Spectrum software (including 
Machine Code! 


- Olt p rog ame dn itten 二 全】 Be 
Baz dc ail lrun on the Ts 一 ES 
E TGF mau have to be increase 


Spectr 
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TREPE ate Mary wags of "printing" to tre 
Video screen. The types involved cover s 
range Of print statements, at and tab. ac 
Well az the range of Modified rint 
subrogtines and machine code. Each has ite 
Out  niquenest af well af its "bezt" 
Pünpore, 

TO dive uou some ides of the guantitu ac 
weil as qualitu of Esch, 1 print facility 
uiil he highlighted and 

amples explanations Given in this and 
eee issuer, 


For the first issu 
loosely refer to as 
print Subroutine. This subrout imi 
to display 4 g'aphic video page. 

Iinitiallu,. you would 对 ES shat you 
With to dizplàu on the screen, Code the 
dezidü, put the code in a rtrind variable 
anid Call the print subroutine, 

To code the information (graphics onl 
locate the character tet ADEM at t 
back Of the ToS basic manu 2» Letter t 
Codes starting at number 1 "to number Le 
to 4. Then letter the code starting fron 
12% 136 HM to  !. These — graphic 
Chartac ii Dh Their zorrezpondinzia 
letter: ll you need to Code à graphic 
Pictur i& numbers are fea 
repre: Et between aT ern aphic 
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Charac 


ct m m ct 


cto 
oo 4L 00 oe 
" r 
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ent 0 " | 本 A 全 Ct ot 


i 
5 
ers a the BRITISH pound zJmbcoil iz 
Ured to deno end of line or neuline,. 
EBa:iclu then. the subroutine scans the 
string variable amd prints to the zcreetv 


the coded information. Thit subroutine hat 
Obvious memonu saving abilities but lacks 
Somewhat in speed. Without further adco. 
the following is the subrout itt and I hav 
included a code string ker as. Try it 
out, I'm cure you will RE able to zee some 
pozzibilities, 


roe los 


Li PROGRAM INSTR." | 


i FPRIHT üaT c.E; “CHARACTER DRE 
FOR fri TO 3 


z = 
2 PRINT "z'; 
4 NEXT & 
= GOTO i088 
Be CLs 
ic LET Ag="SS500LSELDIRF AED TRESS 
Poe ee eee SEODOOOCOCCCODELA SASEBRES 
ROVSSOFEA SAD SOGOCCCASSAFPSSPECESSE 
SSFEESESOERESERRESI 
2Q LET XzCODE As 
3G IF xz1£2 THEN PRIHT 
4O IF = THEM GoTo =e 
42 IF xX:38 THEN GOTO 118 
eO IF £248 THEN LET x={"-27 
SS IF «245 THEN LET XzX^«gp 
50 IF &:47 THEN LET XzzE4T7aà 
"OQ FEIHT CHRE$ X; 
S@ LET &AGgzasiz TO 
S@ IF Ag="" THEN GOTO 145 
i@@ GoTo 2A 
21@ FOR Neil To XxX-g282 
ize PRINT B 
isO NEXT H 
i4iQ GOTO 56 
i$ STOP 
160@ PRINT "TD ora à FICTURE 
"USE THE FOLLOGUING:" 
1605 PRINT USE NUMBERS TO INED 
ICHTE SPACES" 
2016 PRINT "231 D0K at THE CHARAL 
TER SET In THE SIHCLAIRP Zzai 
MAMUAL © 
G20 PRINT RILETTER fares 
i TO 16 RH TO JJ" 
iBcO PRINT FiLETTER CODESZ 
1425 TO 138 LTO a 
lO4Q PRIHT " HOTE- " 
164] FOR 有 = 已 TO i4 
i@d4= PRIHT TAB & = 
1@42 NEXT 只 
1644 PEINT 
105@ PRINT USE THESE 
CODES TO 
eYMBOLIZE 
THE GRAFH 
" IC CHHARE, 
A E. PRINT “TO CONTINUE, HIT any 
Rv 
1661 IF INKEY$='"" THEN GoTo icosi 
1@62 CLZ 
19078 PRINT HT 1,0; DESIGH your F 
ICTURE ON GRID ^" S ^PBBER" 
1680 PRINT “CODE YOUR PICTURE, ¢ 
USE THE £ SIGN TO IHDICHTE &à& H 
Els LINE!" 
1090 PRINT "TRANSFER THIS CODE i 
NTO THE H$ VARIABLE IN THE LIST 


iNG OF THE PROGRAM" 
1100 PRINT "THERE IS CURRENTLY à 
DEMO IN THER$ VARIABLE" 


1110 PRINT “WHEN YOU HAVE ENCODE 
D YOUR DESIGM RUN THE PROGR 
AM Ev /GOTO 107" 
1120 PRINT "TO START YOUR DESIGN 
HIT ANY KEY" | 
1140 IF INKEYs$="" THEN GOTO i142 


1145 CLS 
1150 LIS 7 
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Electronic Bulletin Boards 


For those who have invested in a  Wodem 
and 3g, What now? I believe that I may 
have the answer. 

On€ of the best (te thi K Tat ] She | 
electronic bulletin board: ifn The 
Ottaua-Huli area appears tc kee the 
BASKERUILLE series TECL and TBCZ. There iz 
& SHall COSt associated with membershib tco 
this BES -5$50.00 per year, Not à bad 
investment at all' 

For your dollar, you have access te 
common bulletins land can add to them, 
file development and retreivals, programs 
ana MUCK much more. What Makes it ever: 
HOre attractive if the fact that & 
falility if being developed with Brian 
Baskerville the SYSOP of the BBS, tc 
accommodate the TIMEX.SINCLAIE ücercz 
xclusivelu. For once We Will have 
£Oomethinad that we S. x cur Cu. 


Essentiallu this cilitg it bEind 
established to accept “the following: 
bulletins. programs, Teh — newzletter 
input, comments, for sale items, general 


anformation, and program. data storage. 
To fake this & goung CONCEPT and 
Obviously to assist Uriam Baskerville in: 


Maintaining a qualitu system, I Pere 
recomend to all Es members uo cur 
Bodems ta obtain & Wehberzhib if sou have 


not done so alread. ARE well, if 2nd inet: 
dou become a member. you Ia i wish tü i€&ave 
& Rmes:ade to the SAP to Enquire a: tà 
the Facilities being offered and When the 
Suiten Will be fully operational. 


ROEL OF 


om 
A 
Ex 
TIX 
=e 
cu 
Lzs1 








FORTH 


Corner 





Ht our  dengra 】 meet its iti Had. i 
ezcoribed ma experience with a hardware 
modification. (see hardware review for 2 

f i 
Te The Modification involved adding FORTH 
B= a second operating larguage to fy 
"BuSIC" machine. No  daoukt LOU would 
conclude that I have a desire to learn 
FORTH in à bad Way. SüffiC€e it to fay that 
Ihave extreme difficulty with thachitt 
Code and FORTH seems to be middle GF thé 
rosd. 

Meat I propose to do therefore, it to 
inc iude in this and sibrequent silver. 2 
section titled “THE FORTH CORNER. The 


purpose — being fo discuss FORTH 
progncammind,. common problems facilitiet 


and itt general FORTH 二条 已 下 the Oot tc UP. 
Bu the uad, I also have the ARTIC version 
Qf the cassette FORTH sc I will maak € 
where porsible, references to the 
differences and the solutions af and. — 
i Enc that 2 numbe Er of hEtbEers have The 


Cassette FORTH and Mag bith TO display 
These &Cch ie ;Etent C or asic ifs their 


problemi visa thit forum. 

For this issue I will start a series C 
inputs in the seve] opie Ht. CHE & 
multi-taskinad facility £6 that bu the end 
cf & feu screens of program, you will hav 
& full multi-tas kind Facility comparable 
to the one I have in ROM. AE well, uos mau 
Hust léern something and then adain zc 
ij RET SCreens and text explanations 
£ Ou. Mone in subseguent i EL. 
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10 LLIST *PROGRAMS": 


i8 Fey FOG INDEX 


4d REM THIS PEOGRRH IS HDHFTEL 

From AN ARTICLE PRINTED IN “CRE 
ATIVE COMPUTING MAGAZINE. HHHD D 
EMONSTRATES THE STRING HANDLING | 
CAPRHEILITIES GF THE 24-81. IH FH 
CT, THE AUTHOR OF THE ARTICLE tr 
UTIOGNS THE RERHDEF HOT TO ATTEMPT 


quede 
i. 


THE CONVERSIO DON UNLESS MIS SHER 
ACHINE HAS THOSE CAPABILITIES. 

40 REM THE ONE INSURMOLINTAEBLE 
PROBLEM I DID EXPERIENCE UAS THA 
YT IN THE “INKREYS” MODE, THE 工头 一 万 
i INTERERETS & “SPACE AB A CBRE 
HE". FOR THIS REASON. I HALE REG 
SBIGNED THE "SPACE" TO THE "à" fF 

5@ FEM 

eeOEM ADAPTED EY LEO Foss 

7G REM 192 MARDCH iza-c 

BG REN 


ae REM 

ippgp REM AS = LHET LETTER 

il) LET R= 

128 REM BR = LETTERS 

iae LET BE$z'"" 

3408 FEM 2 = SYLLABLES 

356 L sz 

ise REM L = LiGED LENGTH 

178 LET L=8 

388 REM NS = NUMBER EENTENCES 
108 LET Na=8 

OG REM i} = HLIMEER OF LORDS 

三 全 LET W=8 

eG FEM Lit = NLIMNEBER LOWS HORDE 
2GG LET Lise 

z4gQ FEM i! = COLDUED COUNTER 

z58 LET Use 

zep]B CLE 

SES SLOW 

fe PRINT THE &:° FOG INDEX" 

go PRINT THE 2; EE: 

2908 PRINT 

cw PRINT “TRIS PROGRAM CALCLLH 
TES THE FOS IHDEX OF TEXT. THI: 
iz EQUAL TO THE GRHDE LEVEL OF TF 
HE READER FOR WHICH IT IS SUIT 
HELE.'" 

3i PEINT 

cgo PRINT "IH TYPING TEXT, USE 
ONLY ONE” .“ SPACE AFTER A PERIUOL. 
AND IGNOQREALL OTHER FUNCTUATION 


38 PRINT 

4) PRINT "THE PROGRAM WILL 

WHEN YOL! HAVE & 180-UBRD : 

E. IF YOU MARE HH ERROR. DO 

T BACKSPACE TO CORRECT IT. IT 

ii MAKE", "EITTL DIFFEREHCE IH 
E 


"ne 
etr 


ee 


ect! 


HE SCORE." 
zc5EpPp PRINT AT 28.8: "PRESS "" 
B TO CONTINUE.” 
=6Q INPLT 工本 
Ciz 
PRINT “ENTER TEXT Nou 


PRINT - 
IF INKEY$="" THEN GOTO 2628 
FAST 
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igo IF Eo "ES Aca | ay 


440 REM SPAC 

458 IF AS=CHRS @ THEN LET Uzüs4i 
460 REM PERIOD 

470 IF A$-CHR£ 27 THEN LET NS=N 
—-1 
48Q REM NUMBER OF UDUELS IS CON MAGIC SQUARE 
SIDERED TO EGUAL NUMBER OF SYLLA 
BLES. 

4908 IF Hn$g-'"H'" OF H$£-"E" GR AS" 
I" DR A£-"0" OR a£-"U" OR H£- Y" 
THEN LET $2541 

cap REM ELIMINATING DOUBLE UOUE 


THEN LET 


EN LET W 
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LEN B£i4 THER TO 558 

IF BSiILEN B$£-3 TO )z"DED ' 
Nh B£-2 TO 1-2"TED " THEN 
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i Btis THEN GOTO &ig 
Bile Esg-2 TO 31 ste Te 
EH LET S=5-i 
BMG REM COUNTS LONG UORDS OF 3 " 
OF ORE BYLLHABLE=. = 
E IF A£-CHRE$ 8 AND 5:2 THEN L 三 
Lizi Li4 a 
n E 
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S20 IF üE-CHRS P THEN LET 2-8 E 
BSG REM STOPS AT END OF SENTENC 4 = 
E WITH 100 OF MORE Uoros. wrens: a 
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PHONE COST MONITOR 


10 LET OM=0 

20 LET NINES=0 

30 LET FL=0 

40 LET MIN=0 

50 LET SEC=O 

70 SLOW 

80 PRINT “TELEPHONE COST MONITOR" 

90 PRINT 

100 PRINT "DO YOU WANT TO KNOW ..." 
110 PRINT | 

120 PRINT "1) WHEN A CERTAIN AMOUNT" 
130 PRINT “OF MONEY HAS BEEN SPENT?" 
140 PRINT "2) WHEN A GIVEN AMOUNT OF TIME" 


150 PRINT “HAS ELAPSED?” 

160 PRINT "3) TOTAL CHARGES FOR A CALL?" 
180 PRINT 

190 PRINT "PLEASE ENTER NUMBER" 

200 LET SS=INKEYS 

210 1F $$="" THEN GOTO 200 

220 IF S$«"1" OR $$>"3" THEN GOTO 200 
240 CLS 

250 PRINT “WHAT IS THE INITIAL CHARGE” 
260 PRINT “FOR THIS CALL?” 

270 PRINT 

280 PRINT “CEXAMPLE: .59)" 

290 PRINT 

300 INPUT FT 

320 PRINT “FOR HOW MANY MINUTES?” 

340 INPUT 8G 

350 CLS 

360 PRINT “HOW MUCH FOR EACH MINUTE” 
370 PRINT "AFTERWARD?" 

390 INPUT AT 

400 CLS 

410 GOTO (S$="9") #4204 (S$="2") #4704 (S$="3") 2510 
420 PRINT "WHAT DO YOU WANT TO" 

1430 PRINT "SPEND ON THIS CALL?" 

450 INPUT SP 

460 GOTO 510 

470 PRINT “HOW MANY MINUTES" 

480 PRINT "DO YOU WANT TO TALK?" 

500 INPUT TM 

$10 CLS 

520 PRINT "PRESS «ENTER» WHEN THE OTHER" 
530 PRINT "PARTY ANSWERS THE PHONE.” 
550 LET AS=INKEYS 

560 IF AS<>CHRS 118 THEN GOTO $50 

600 CLS 

620 LET CO=FT 

630 PRINT "-----——--——---—---- -—-" 
640 PRINT "MONEY ELAPSED TIMt" 
650 PRINT "SPENT MINS.--SECS." 
660 PRINT "----------—---—————--" 
670 POKE 16436,255 

680 POKE 16437,255 

690 LET SECSINT((65536-(256*PEEK 16437*PEEK 16436))/60 
) 


700 LET MINSINT(SEC/$0) 

710 LET SECSSEC-MIN*60 

720 IF MINX9 THEN GOTO 750 

730 LET NINES=NINES+9 

740 GOTO 670 

750 1F SEC>S9 THEN LET SEC=0 

760 LET MIN-MIN*NINES 

770 IF SEC>O AND FL=O AND MIN>=8G THEN LET CO=CO4AA 
780 LET FL=1 

790 If MIN<OOM THEN LET FL=0 

800 LET OM=MIN 

810 PRINT AT 4,0;C0;" ".RMIN;" "SSEC;"  * 
840 IF (S$="1" AND CO>=SP) OR (SSs"2" AND MIN>=TM) THE 
N GOTO 910 

880 LET AS=INKEYS 

B90 IF A$«»"" THEN GOTO 1110 

900 GOTO 690 

910 CLS 

920 If S$32"1" THEN PRINT “YOUR MONEY IS SPENT." 
930 IF S$z"2" THEN PRINT "TIME IS UP." 

1100 STOP 

1110 PRINT “STOPPED.” 

1120 STOP 
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